home *** CD-ROM | disk | FTP | other *** search
/ Die Speccy' 97 / Die Speccy' 97.iso / amiga_system / the_aminet / comm / cnet / cnet_who.lha / Who / MakeWho < prev    next >
Text File  |  1995-10-15  |  17KB  |  145 lines
  1. /**************************************************************************\
  2.                 $VER: MakeWho, v2.51 (15-Oct-95) by Dotoran!
  3. \**************************************************************************/
  4. options results;signal on SYNTAX;signal on ERROR;signal on IOERR
  5. tr=transmit;se=sendstring;gc=getchar;gu=getuser;gs=getscratch;changewhere "CNet Make Who"
  6. a='rexxsupport.library';if ~show('l',a) then if ~addlib(a,0,-30) then exit
  7. gu 70;arg=result;if arg=0 then do;call SETUP2;arg=3;call SETUP;call SHORT;call NORMAL;call LONG;exit;end
  8. call SETUP;if arg=1 then call SHORT;if arg=2 then call NORMAL;if arg=3 then call LONG;exit
  9. SHORT: /* v2.51 complete */
  10.   call open(f1,'pfiles:who/Short','r');do i=1 until eof(f1);l.i=readln(f1);end i;tot=i-1;call close(f1)
  11.   l.10="tot=high;call PARSER(args,0,high);helpT='n1"c1"Short Who"c6", v"c2"2"c6"."c2"50 "c6"by "c4"Dotorann2'"
  12.   l.11="helpT=helpT'"c16"Format"c3":  "c8"W "c16"["c6"port"c3"# "c6"p"c3"#cb-"c6"p"c3"# "c6"p"c3"#cb,"c6"p"c3"# cb-"c6"p"c3"# "c6"p"c3"#cb-"c16"]'"
  13.   l.14="v1="s3.1";v4="s3.4";v5="s3.5";v6="s3.6";loS="s3.7";hiS="s3.8";v7="s3.9";if v7=1 then tr 'f1'"
  14.   l.16='tr "'tb1||tf1||t1||tbt1' 'tb2||tf2||t2||tbt2' 'tb6||tf6||t6||tbt6'";call MGC'
  15.   l.17='tr "'tb10||tf10||copies(t10,4)||tbt10' 'tb10||tf10||copies(t10,20)||tbt10' 'tb10||tf10||copies(t10,17)||tbt10'"'
  16.   l.27="  gu 1101333;con=BitTST(d2c(result,4),7);if v1=1&zy>5 then where='"c7"Idle "c3"'iT"
  17.   l.29="  gs 1;handle=result;call MGC;end;if id=-1 then do;handle=l903;where=l107;if v1=1&where=l107 then where='"c7"Idle cb'iT;end"
  18.   l.30="  tr '"c1"'right(port,2)' "c2"'st' "c3"'handle'.26}"c7"'where;call MGC"
  19.   l.31="end ii;tr '"tf10||tb10"'copies('"t10"',43)'"tbt10" ';if help=3 then exit;if help=2 then do"
  20.   l.32="  tr '"c2"m "c1"= "c2"Muffled"c1", "c2"h "c1"= "c2"Hidden"c1", "c2"+ "c1"= "c2"Conf. Control';exit;end"
  21.   l.33="tr "d2c(34)"   "c2"m "tf10"= "c4"You're Muffling this Port."d2c(34)";if conf=1 then tr "d2c(34)"   "c2"M "tf10"= "c8"They're trying to Muffle You."d2c(34)
  22.   l.34="tr "d2c(34)"   "c2"h "tf10"= "c4"You're Hiding from this Port."d2c(34)";if conf=1 then tr "d2c(34)"   "c2"H "tf10"= "c8"They're trying to Hide from You."d2c(34)
  23.   l.35="tr "d2c(34)"   "c2"+ "tf10"= "c7"User has Conference Control."d2c(34)";exit"
  24.   l.42="MINUTES:;arg m;t=right(m,1);m=m%10;hrs=m%60;mins=m-(hrs*60);if hrs=0 then zz=mins'.'t' "c3"Minutes';else zz=hrs'.'mins%6' "c4"Hours';return"
  25.   call open(f1,'pfiles:Who/Short','w');do i=1 to tot;call writeln(f1,l.i);end i;call close(f1);return
  26. NORMAL: /* v2.51 complete */
  27.   call open(f1,'pfiles:who/Normal','r');do i=1 until eof(f1);l.i=readln(f1);end i;tot=i-1;call close(f1)
  28.   l.10="tot=high;call PARSER(args,0,high);helpT='n1"c1"Normal Who"c6", v"c2"2"c6"."c2"50 "c6"by "c4"Dotorann2'"
  29.   l.11="helpT=helpT'"c16"Format"c3":  "c8"WH "c16"["c6"port"c3"# "c6"p"c3"#"c2"-"c6"p"c3"# "c6"p"c3"#"c2","c6"p"c3"# "c2"-"c6"p"c3"# "c6"p"c3"#"c2"-"c16"]'"
  30.   l.15="v1="s3.1";v2="s3.2";v4="s3.4";v5="s3.5";v6="s3.6";loS="s3.7";hiS="s3.8";v7="s3.9";if v7=1 then tr 'f1'"
  31.   l.18='tr "'tb1||tf1||t1||tbt1' 'tb2||tf2||t2||tbt2' 'tb3||tf3||t3||tbt3' 'tb4||tf4||t4||tbt4' 'tb5||tf5||t5||tbt5' 'tb6||tf6||t6||tbt6'";call MGC'
  32.   l.19='tr "'tb10||tf10||copies(t10,4)||tbt10' 'tb10||copies(t10,20)||tbt10' 'tb10||copies(t10,6)||tbt10' 'tb10||copies(t10,3)||tbt10' 'tb10||copies(t10,24)||tbt10' 'tb10||copies(t10,17)||tbt10'"'
  33.   l.31="  if hide=1&con=0 then st='H';if v1=1&zy>5 then where='"c7"Idle "c3"'iT"
  34.   l.35="  who='';time=0;if v1=1&where=l107 then where='"c7"Idle "c2"'iT"
  35.   l.37="  if id>-1|a='' then do;se '"c1"'right(port,2)' "c2"'st' "c3"'handle'.26}"c4"'right(logon,6)"
  36.   l.38="  tr ' "c5"'right(cps,3)' "c6"'left(city,21)left(country,3)' "c7"'where;call MGC;end"
  37.   l.39="  if id=-1&a~='' then do;tr '"c1"'right(port,2)' "c2"'st' 'a'.62}"c7"'where;call MGC;end"
  38.   l.40="  if who~='' then tr copies(' ',37)'@8"c7"'who;call MGC"
  39.   l.41="end ii;tr '"tb10||tf10||copies(t10,79)||tbt10"';if help=3 then exit"
  40.   l.42="if help=2 then do;se '              "c2"m "c1"= "c2"Muffled"c1", "c2"h "c1"= "c2"Hidden"c1", '"
  41.   l.43="tr '"c2"+ "c1"= "c2"Conference Control';exit;end;a="d2c(34)"   "c2"m "tf10"= "c4"You're Muffling this Port.        "d2c(34)
  42.   l.44="if conf=1 then a=a"d2c(34)||c2"M "tf10"= "c8"They're trying to Muffle You."d2c(34)";tr a;a="d2c(34)"   "c2"h "tf10"= "c8"You're Hiding from this Port.     "d2c(34)
  43.   l.45="if conf=1 then a=a"d2c(34)||c2"H "tf10"= "c4"They're trying to Hide from You."d2c(34)";tr a;tr "d2c(34)"   "c2"+ "tf10"= "c7"User has Conference Control."d2c(34)";exit"
  44.   l.52="MINUTES:;arg m;t=right(m,1);m=m%10;hrs=m%60;mins=m-(hrs*60);if hrs=0 then zz=mins'.'t' "c8"Minutes';else zz=hrs'.'mins%6' "c4"Hours';return"
  45.   call open(f1,'pfiles:Who/Normal','w');do i=1 to tot;call writeln(f1,l.i);end i;call close(f1);return
  46. LONG: /* v2.51 complete */
  47.   call open(f1,'pfiles:who/Long','r');do i=1 until eof(f1);l.i=readln(f1);end i;tot=i-1;call close(f1)
  48.   l.15="helpT='n1"c1"Long Who"c6", v"c2"2"c6"."c2"50 "c6"by "c4"Dotorann2C"c16"Formats"c3": '"
  49.   l.16="if conf=1 then do;helpT=helpT'"c8"WHO "c16"["c6"<"c3"C"c6">"c3"onfig"c16"]       "c6"--- "c7"Conference Controllers "c1"ONLY"c7"!n1'"
  50.   l.17="helpT=helpT'C"c8"WHO "c16"["c6"<"c3"I"c6">"c3"dle Loader"c16"]  "c6"--- "c7"Conference Controllers "c1"ONLY"c7"!n1'"
  51.   l.18="helpT=helpT'C"c8"WHO "c16"["c6"<"c3"E"c6">"c3"dit Idles"c16"]   "c6"--- "c7"Conference Controllers "c1"ONLY"c7"!n1';end"
  52.   l.19="helpT=helpT'C"c8"WHO "c16"["c6"<"c3"Q"c6">"c3"uick List"c16"]n1C"c8"WHO "c16"["c6"<"c3"P"c6">"c3"ort Banner"c16"]n1'"
  53.   l.20="helpT=helpT'C"c8"WHO "c16"["c6"<"c3"B"c6">"c3"anners"c16"]n1C"c8"WHO "c16"["c6"<"c3"G"c6">"c3"limpse"c16"]n1'"
  54.   l.21="helpT=helpT'C"c8"WHO "c16"["c6"<"c3"V"c6">"c3"iew "c6"<"c8"H"c6">"c8"istory"c16"]n1'"
  55.   l.22="helpT=helpT'C"c8"WHO "c16"["c6"port"c3"# "c6"p"c3"#"c2"-"c6"p"c3"# "c6"p"c3"#"c2","c6"p"c3"# "c2"-"c6"p"c3"# "c6"p"c3"#"c2"-"c16"] "c2"etc"c6"...'"
  56.   l.24="v1="s3.1";v2="s3.2";v3="s3.3";v4="s3.4";v5="s3.5";v6="s3.6";loS="s3.7";hiSk="s3.8";v7="s3.9";v8="s3.10";v9="s3.11";if v7=1&index('CIE?BGVHP',arg)=0 then tr 'f1'"
  57.   l.29="if arg='I'&conf=1 then do;se 'n1"c3"ReLoading "c2"Idle "c1"Port "c7"Banners"c6"...';call setclip('IdleWhoB0');tr '#0pfiles:who/Loader}"c4"Done"c6"!';exit;end"
  58.   l.30="if arg='Q' then quick=1;if arg='P' then do;a=getclip('IdleWhoB'myport);tr 'n1"c6"Port "c2"'myport'"c7": "c8"'a'n1';exit;end"
  59.   l.31="if arg='E'&conf=1 then do;loadeditor 'pfiles:who/IdlePorts';tr 'n1"c3"Edit "c2||d2c(34)||c8"IdlePorts"c2||d2c(34)" "c6"file...';calleditor 102;gu 1109865"
  60.   l.32="  st=result;if st=1 then do;se '"c1"Saving "c2||d2c(34)||c8"IdlePorts"c2||d2c(34)" "c6"file...';saveeditor 'pfiles:who/IdlePorts';tr '"c4"Done"c6"!';end"
  61.   l.33="  else if st=0 then do;se '"c7"Delete "c2||d2c(34)||c8"IdlePorts"c2||d2c(34)" "c6"file? "c16"["c15"Yes"c16"]"c6": "c15"'"
  62.   l.34="  gc;a=result;if a='N' then tr 'No.';else do;se 'Yes"c6"!  "c7"Deleting"c6"...'"
  63.   l.35="  address command 'delete pfiles:who/IdlePorts';tr '"c4"Done"c6"!';end;end;exit;end"
  64.   l.36="START:;tr "d2c(34)||tb1||tf1||t1||tbt1" "tb2||tf2||t2||tbt2" "tb3||tf3||t3||tbt3" "tb4||tf4||t4||tbt4" "tb5||tf5||t5||tbt5" "tb6||tf6||t6||tbt6||d2c(34)";call MGC"
  65.   l.37="  tr '"tb10||tf10||copies(t10,4)tbt10" "tb10||copies(t10,20)tbt10" "tb10||copies(t10,6)||tbt10" "tb10||copies(t10,3)||tbt10" "tb10||copies(t10,24)||tbt10" "tb10||copies(t10,17)||tbt10"'"
  66.   l.47="  if hide=1&con=0 then st='H';if v1=1&zy>5 then where='"c7"Idle "c2"'iT;else where=where'"c1||c1"'"
  67.   l.50="  sex='"tb7||tf7||t7||tbt7"';if result=0 then sex='"tb8||tf8||t8||tbt8"';gs 18;time=result%10;gs 39;udir=result"
  68.   l.53="  time=0;if v1=1&where=l107 then where='"c7"Idle "c2"'iT;if v2=1 then a=getclip('IdleWhoB'i)"
  69.   l.55="  se '"c1"'right(port,2)' "c2"'st' "c3"'handle'.26}"c4"'right(logon,6)"
  70.   l.56="  se ' "c5"'right(cps,3)' "c6"'left(city,21)left(country,3)' "c7"';tr where'"c8"';call MGC;end"
  71.   l.57="  else do;tr '"c1"'right(port,2)' "c2"'st' 'a'.62}"c7"'where;call MGC;end"
  72.   l.58="  if id~=-1 then do;se '"tb11||tf11||t11||tbt11||c13": "c8"'date' 'sex' "c9"'substr(' *',his+1,1)"
  73.   l.59="  tr '"tb12||tf12||t12||tbt12||c13": "c10"'left(time,8)'@8"c11"'left(who,42)'"c12"';call MGC;end"
  74.   l.62="  if totpit>1&ii~=totpit&quick=0 then tr '"tb9||tf9"'copies('"t9"',79)'"tbt9"'"
  75.   l.63="  end ii;se '"tb10||tf10"'copies('"t10"',79)'"tbt10"';call MGC;if help=3|quick=1 then signal MENU"
  76.   l.64="  if help=2 then do;se 'n1"tb11||tf11||t11||tbt11||c1"="c8"Last Call"c1", "c9"*"c1"="c9"History"c1", '"
  77.   l.65="  se '"tb12||tf12||t12||tbt12||c1"="c10"Time Today"c1", "c2"m"c1"="c2"Muffled"c1", ';tr '"c2"h"c1"="c2"Hidden"c1", "c2"+"c1"="c2"Conf. Cont.';signal MENU;end"
  78.   l.66="  tr "d2c(34)"n1   "c2"m "tf10"= "c4"You're Muffling this Port.         "c2"h "tf10"= "c3"You're Hiding from this Port."d2c(34)";call MGC"
  79.   l.67="  if conf=1 then tr "d2c(34)"   "c2"M "tf10"= "c8"They're trying to Muffle You.      "c2"H "tf10"= "c8"They're trying to Hide from You."d2c(34)
  80.   l.68="  tr "d2c(34)||tb11||tf11||t11||tbt11||tf10" = "c8"User's Last Call Date.          "tb12||tf12||t12||tbt12||tf10" = "c4"Time Used Today by this User."d2c(34)
  81.   l.69="  tr "d2c(34)"   "c9"* "tf10"= "c4"This User has a HISTORY File.      "c2"+ "tf10"= "c3"User has Conference Control."d2c(34)";call MGC"
  82.   l.70="MENU:;if quick=1 then exit;se 'n1"c17"Long "c2"Who "c16"["c15"B"c16"]"c15"anner"c17", "c16"["c15"G"c16"]"c15"limpse"c17", '"
  83.   l.71="  se '"c16"["c15"V"c16"]"c15"iew "c18"History"c17", or "c16"["c20"QUIT"c16"]"c17": "c15"';gc;a=index('BGVHQ',result)"
  84.   l.72="  if a=0|a=5 then do;tr '"c20"Quit';exit;end;if a=1 then do;tr 'Banner'"
  85.   l.74="  if v3=0&conf~=1 then do;tr 'n1"c17"You can "c7"NOT "c1"create "c3"Multiple "c20"Who Banners"c17"! Use "c1"EP;14 "c17"instead!';signal MENU;end"
  86.   l.77="E0:;tr 'f1n1"c23"r1 Your Short Who Banners r0n2"c24" Current Bannern1"c25"~~~~~~~~~~~~~~~~n1"c26"Banner "c27"0"c28": @8"c3"'b.0"
  87.   l.78="  tr 'n1"c24" Banners On Filen1"c25"~~~~~~~~~~~~~~~~~';do i=1 to 9;tr '"c26"Banner "c27"'i'"c28": @8"c3"'b.i;end i"
  88.   l.79="  se 'n1"c17"Edit "c16"["c15"0"c16"] "c17"thru "c16"["c15"9"c16"]"c17", "c16"["c20"Q"c16"]"c20"uit"c17", or "c16"["c15"P"c16"]"c15"ick "c17"current? "c16"["c15"Pick"c16"]"c17": "c15"'"
  89.   l.81="  if a=12 then do;tr '"c20"Quit';signal MENU;end;if a<11 then do;a=a-1;tr a"
  90.   l.82="E1:;addkeys (b.a);se 'n1"c17"Edit "c26"Banner "c27"'a'"c28":cfi'128+v8*256' 42}';gu 70;ban=result"
  91.   l.83="  if index(ban,"d2c(34)""d2c(34)") then do;tr "d2c(34)||c7"Control-Q characters are PROHIBITED in Banners!"d2c(34)";b.a=ban;signal E1;end"
  92.   l.84="  if sysop=0|(sysop=1&v9=0) then do;ban2=ban;call STRIPSMCI;if ban2~=ban then tr "d2c(34)||c7"SysOp Only MCI's have been REMOVED! "c16"<"tf10"Key"c16">g1"d2c(34)";end"
  93.   l.85="  if mci1=0|mci2=0 then do;ban2=ban;call STRIPMCI2;if ban2~=ban then tr "d2c(34)||c7"Level 2 MCI's have been REMOVED! "c16"<"tf10"Key"c16">g1"d2c(34)";end"
  94.   l.86="  if mci1+mci2=0 then do;ban2=ban;call STRIPMCI;if ban2~=ban then tr "d2c(34)||c7"ALL MCI Occurances have been REMOVED! "c16"<"tf10"Key"c16">g1"d2c(34)";end"
  95.   l.87="  se 'n1"c17"Is "c2||d2c(34)"@8"c3"'ban'"c2||d2c(34)" "c17"Correct? "c16"["c15"Yes"c16"]"c17": "c15"';gc;c=result;if c='N' then do;tr 'No.';b.a=ban;signal E1;end"
  96.   l.89="  if a=11 then do;se 'Pickn2"c17"Use which "c20"Banner "c17"as "c1"Current"c17"? "c16"["c3"<"c15"1"c3">"c16"-"c15"9"c16"]"c17": "c15"'"
  97.   l.94="AG:;tr 'n1"c17"You''ll have "c2"3 "c17"lines to "c1"create "c17"and/or "c20"edit "c17"your "c2||d2c(34)||c15"Glimpse"c2||d2c(34)||c17" file...'"
  98.   l.96="  se '"c7"Delete "c17"your "c2||d2c(34)||c15"Glimpse"c2||d2c(34)||c6" file now? "c16"["c15"Yes"c16"]"c17": "c15"';gc;a=result"
  99.   l.99="AV:;se 'n1"c16"["c15"E"c16"]"c15"dit"c17", "c16"["c15"V"c16"]"c15"iew "c17"by "c19"Port"c17", or "c16"["c15"S"c16"]"c15"pecific "c18"Histories"c17"? "c16"["c20"QUIT"c16"]"c17": "c15"'"
  100.   l.100="  gc;a=index('EVPSHQ',result);if a=0|a=6 then do;tr '"c20"Quit';signal MENU;end"
  101.   l.101="  if a=1 then do;tr 'Edit';tr 'n1"c17"You''ll have "c2"20 "c17"lines to "c1"create "c17"and/or "c20"edit "c17"your "c2||d2c(34)||c15"History"c2||d2c(34)||c17" file...'"
  102.   l.103="  se '"c7"Delete "c17"your "c2||d2c(34)||c15"History"c2||d2c(34)||c17" file now? "c16"["c15"Yes"c16"]"c17": "c15"';gc;a=result"
  103.   l.106="VPM:;se 'n1 "c15"View "c17"the "c1"History File "c17"for the "c20"User "c17"on which "c2"Port"c17"? "c16"'right('["c15"'myport'"c16"]',10)'"c17":"c15"i192 2}'"
  104.   l.108="  if a='(offline)' then do;tr 'n1"c17"That "c2"Port "c17"is "c7"NOT "c17"Loaded!';signal MENU;end"
  105.   l.109="  if a=l107 then do;tr 'n1"c7"No One "c17"is "c15"USING "c17"that "c2"Port "c17"now!';signal MENU;end;end"
  106.   l.111="VPA:;tr 'f1"c21"r1'center('History File For "d2c(34)"'han'"d2c(34)" on Port 'p'...',78)'r0"c22"'"
  107.   l.113="  se '"tf10"'copies('"t10"',78)' n1"c16"["c15"V"c16"]"c15"iew "c2"Another"c17", "c16"["c15"R"c16"]"c15"eView "c17"this "c1"History"c17", "c16"["c15"W"c16"]"c15"ho "c15"List"c17", or "c16"["c20"QUIT"c16"]"c17": "c15"'"
  108.   l.114="  gc;a=index('VARHWLQ',result);if a=0|a=7 then do;tr '"c20"Quit';exit;end;if a=1|a=2 then do;tr 'View Another';signal VPM;end"
  109.   l.116="VSM:;se 'n1"c17"Enter "c1"ID#"c17", "c3"Handle"c17", or "c2"Real Name "c17"to "c15"View"c17": "c16"["c15"1"c16"]"c17": "c15"i144 25}'"
  110.   l.118="  tr 'n1"c7"This is an Invalid Account! "c17"Check your typing.';signal MENU;end;loadscratch st;savescratch (-st)"
  111.   l.120="VSA:;tr 'f1"c21"r1'center('History File For "d2c(34)"'han'"d2c(34)" from 'city'...',78)'r0"c22"'"
  112.   l.122="  se '"tf10"'copies('"t10"',78)' n1"c16"["c15"V"c16"]"c15"iew "c2"Another"c17", "c16"["c15"R"c16"]"c15"eView "c17"this "c1"History"c17", "c16"["c15"W"c16"]"c15"ho "c3"List"c17", or "c16"["c20"QUIT"c16"]"c17": "c15"'"
  113.   l.123="  gc;a=index('VARHWLQ',result);if a=0|a=7 then do;tr '"c20"Quit';exit;end;if a=1|a=2 then do;tr 'View Another';signal VSM;end"
  114.   l.131="MINUTES:;arg m;t=right(m,1);m=m%10;hrs=m%60;mins=m-(hrs*60);if hrs=0 then zz=mins'.'t' "c8"Minutes';else zz=hrs'.'mins%6' "c4"Hours';return"
  115.   call open(f1,'pfiles:Who/Long','w');do i=1 to tot;call writeln(f1,l.i);end i;call close(f1);return
  116. SETUP:;call open(f1,'pfiles:who/Config.Data','r');line=readln(f1);do i=1 to 3
  117.   c1.i=readln(f1);c2.i=readln(f1);c3.i=readln(f1);c4.i=readln(f1);end i;call close(f1)
  118.   c1=c1.arg;c2=c2.arg;c3=c3.arg;c4=c4.arg;cc1=c1;do i=1 to 10;parse var cc1 s0.i''cc1;end i
  119.   cc2=c2;do i=1 to 20;parse var cc2 s1.i''cc2;end i;cc3=c3;do i=1 to 34;parse var cc3 s2.i''cc3;end i
  120.   cc4=c4;do i=1 to 16;parse var cc4 s3.i''cc4;end i
  121.   t1=left(s0.1,4);tf1='c's1.2;tb1='';tbt1='';if s1.1>0 then do;tb1='z's1.1;tbt1='z0';end
  122.   t2=left(s0.2,20);tf2='c's1.4;tb2='';tbt2='';if s1.3>0 then do;tb2='z's1.3;tbt2='z0';end
  123.   t3=left(s0.3,6);tf3='c's1.6;tb3='';tbt3='';if s1.5>0 then do;tb3='z's1.5;tbt3='z0';end
  124.   t4=left(s0.4,3);tf4='c's1.8;tb4='';tbt4='';if s1.7>0 then do;tb4='z's1.7;tbt4='z0';end
  125.   t5=left(s0.5,24);tf5='c's1.10;tb5='';tbt5='';if s1.9>0 then do;tb5='z's1.9;tbt5='z0';end
  126.   t6=left(s0.6,17);tf6='c's1.12;tb6='';tbt6='';if s1.11>0 then do;tb6='z's1.11;tbt6='z0';end
  127.   t7=center(s0.7,8);tf7='c's1.14;tb7='';tbt7='';if s1.13>0 then do;tb7='z's1.13;tbt7='z0';end
  128.   t8=center(s0.8,8);tf8='c's1.16;tb8='';tbt8='';if s1.15>0 then do;tb8='z's1.15;tbt8='z0';end
  129.   t9=s0.9;tf9='c's1.18;tb9='';tbt9='';if s1.17>0 then do;tb9='z's1.17;tbt9='z0';end
  130.   t10=s0.10;tf10='c's1.20;tb10='';tbt10='';if s1.19>0 then do;tb10='z's1.19;tbt10='z0';end
  131.   t11=center(s2.29,4);tf11='c's2.30;tb11='';tbt11='';if s2.31>0 then do;tb11='z's2.31;tbt11='z0';end
  132.   t12=center(s2.32,4);tf12='c's2.33;tb12='';tbt12='';if s2.34>0 then do;tb12='z's2.34;tbt12='z0';end
  133.   c1='c's2.1;c2='c's2.2;c3='c's2.3;c4='c's2.4;c5='c's2.5;c6='c's2.6;c7='c's2.7;c8='c's2.8
  134.   c9='c's2.9;c10='c's2.10;c11='c's2.11;c12='c's2.12;c13='c's2.13;c14='c's2.14;c15='c's2.15;c16='c's2.16
  135.   c17='c's2.17;c18='c's2.18;c19='c's2.19;c20='c's2.20;c21='c's2.21;c22='c's2.22;c23='c's2.23;c24='c's2.24
  136.   c25='c's2.25;c26='c's2.26;c27='c's2.27;c28='c's2.28;return
  137. SETUP2:;if arg>0 then return;else call SETUP;call open(f1,'pfiles:who/Config.Data','w')
  138.   call writeln(f1,line);do i=1 to 3;call writeln(f1,c1.3);call writeln(f1,c2.3)
  139.   call writeln(f1,c3.3);call writeln(f1,c4.3);end i;call close(f1);return
  140. SYNTAX:;ERROR:;IOERR:;e1=' Error: 'rc' ('errortext(rc)')';e2='  Line: 'left(sigl,4)'File:';gu 1311992
  141.   a=result;gu 1311960;b=result;c='"'a||b'"';e2=e2' 'c;tr e1;tr e2;logentry e1;logentry e2;e=sourceline(sigl)
  142.   do while e~='';e3='Source: 'left(e,37);tr e3;logentry e3;e=substr(e,38);end;bufferflush;exit
  143. /** Last Edited: 15-Oct-95 ************************************************\
  144. \****************************************** Frontiers BBS (716)/823-9892 **/
  145.